home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / utils / madhouse / madregister / emailregister < prev    next >
Text File  |  1998-01-03  |  3KB  |  93 lines
  1. ; emailRegister script
  2. ; for easy usage of KeyUpdater to get the keyfile by email.
  3. ; created Jan 3th 1998 (c) Carsten Jahn
  4.  
  5. (if (= @language "deutsch") (
  6.     (set #intro
  7.     (cat        "Dieses Script erzeugt die KeyRequest-Nummer, die nötig "
  8.                     "ist, um das Madhouse Keyfile per email zu empfangen. "
  9.                     "Schreibe die Nummer auf das Registrationsformular. Du wirst "
  10.                     "eine Antwort-email erhalten, die das verschlüsselte "
  11.                     "Keyfile enthält.\n"
  12.                     "Speichere die email als Textdatei. "
  13.                     "Starte dann dieses Script erneut und wähle die Datei, "
  14.                     "das Keyfile wird nun entschlüsselt und nach S:Madhouse2.key "
  15.                     "geschrieben."))
  16.     (set #yourID "\n\nDie Nummer ist:\n%s\nBitte schreibe das auf das Registrationsformular.")
  17.     
  18.     (set #whattodo "Ein RequestKey wurde schon erstellt.")
  19.     (set #chdisp "RequestKey erneut anzeigen")
  20.     (set #chmake "Keyfile mit Hilfe der Antwort-email erzeugen")
  21.     (set #selmail "Wähle die email-Textdatei")
  22.  
  23. )(
  24.     (set #intro
  25.     (cat        "This script is used to get an KeyRequest ID which "
  26.                     "is necessary to receive your Madhouse keyfile by email. "
  27.                     "Write the ID on your registration form. You'll get a "
  28.                     "reply email from me, including your encrypted keyfile.\n"
  29.                     "Save the email as a plain text file. Now start this script "
  30.                     "again and select the file, it will decode the key and "
  31.                     "write it to S:Madhouse.key2." ))
  32.     (set #yourID "\n\nYour ID is:\n%s\nPlease write it on your Registration from.")
  33.  
  34.     (set #whattodo "You have generated a RequestKey already.")
  35.     (set #chdisp "Display RequestKey again")
  36.     (set #chmake "Make Keyfile, using the reply email")
  37.     (set #selmail "Select the plaintext email file")
  38. ))
  39.  
  40.  
  41. (message #intro)
  42.  
  43. (if (exists "RequestKey") (
  44.     ; // RequestKey schon da.
  45.     
  46.     (if (= (askchoice
  47.         (prompt #whattodo)
  48.         (help "")
  49.         (default 1)
  50.         (choices #chdisp #chmake)) 1 ) (
  51.         
  52.         ; make
  53.     
  54.         (set #inputmail (askfile
  55.             (prompt #selmail)
  56.             (help "")
  57.             (default "")
  58.         ))
  59.         
  60.         (run ("KeyUpdater >CON:100/100/400/150/KeyUpdater-Output/CLOSE/WAIT MAKE \"%s\"" #inputmail))
  61.         
  62.     )(
  63.         ; display
  64.     
  65.         (copyfiles
  66.             (source "RequestKey" )
  67.            (dest "ENV:")
  68.            (nogauge)
  69.         )
  70.         (protect "ENV:RequestKey" "+w +d" )
  71.         
  72.         (message (#yourID (getenv("RequestKey"))))
  73.     
  74.         (delete "ENV:RequestKey")
  75.     ))
  76.     
  77. )(
  78.     (run "KeyUpdater REQUEST")
  79.     (copyfiles
  80.         (source "RequestKey" )
  81.        (dest "ENV:")
  82.        (nogauge)
  83.     )
  84.     (protect "RequestKey" "-w -d" )
  85.     
  86.     (message (#yourID (getenv("RequestKey"))))
  87.     
  88.     (delete "ENV:RequestKey")
  89. )) 
  90.  
  91. (exit (quiet))
  92.  
  93.